3 POKE147,0:SYS57812"LIST.FONT",8,1:SYS62631
4 POKE147,0:SYS57812"INPUT ANY.O",8,1:SYS62631
5 A$=""
7 GOSUB 20000:PRINTCHR$(14):POKE53272,19
10 GOTO660
20 REM ------INPUT ROUTINE-------
30 POKE198,0:K$=""
40 PRINT" [157][146]";:FORT=1TO10:NEXT
50 PRINT" [157]";:FORT=1TO10:NEXT
60 GETA$:IFA$=""THEN40
70 L=LEN(K$)
80 IF(QQ)AND(L=0)AND((A$>="A")AND(A$<="Z"))THENA$=CHR$(ASC(A$)+128):GOTO150
90 IFA$=CHR$(13)THENA$=K$:PRINT:RETURN
100 IFA$=CHR$(20)ANDLTHENPRINT" [157][157]";:K$=LEFT$(K$,L-1):GOTO40
110 IFNU=0THENIF(A$<" "ORA$>"_")AND(A$<"[193]"ORA$>"[218]")THEN40
120 IFNU=1THENIF(A$<"A"ORA$>"Z")AND(A$<"[193]"ORA$>"[218]")THEN40
130 IFNU=2THENIFA$<"0"ORA$>"9"THEN40
140 IFL>LN-1THEN40
150 PRINTA$;:K$=K$+A$
160 GOTO40
165 REM ------LINE LOCK-------
170 POKE770,131:POKE771,164
180 POKE88,0:POKE89,192
190 POKE90,0:POKE91,192
200 POKE781,33:POKE782,0
210 SYS41964
220 POKE88,254:POKE89,255
230 POKE90,254:POKE91,255
240 POKE781,33:POKE782,0
250 SYS41964
260 POKE59639,1:POKE1,53:RETURN
270 REM ------LIST ROUTINE-------
280 PRINT"[200]OLD DOWN [211][208][193][195][197] TO PAUSE  -  [209] TO QUIT"
290 IFTYTHENOPEN4,4,7:CMD4
300 FORI=1TOX-1:IFTY=0THENPRINT"[152]";
310 IFX=1ANDTY=0THENPRINT"     [217]OU MUST [204][207][193][196] A FILE FIRST":GOTO460
320 IFPEEK(203)=60THEN320
325 IFPEEK(203)=62THENI=X-1
330 ONTLGOTO340,360,380,400,420
340 IFY=LS%(I)THEN420
345 IFY<LS%(I)AND(X<202)THENI=X-1
350 GOTO460
360 IFY$=LEFT$(PR$(I),LEN(Y$))THEN420
370 GOTO460
380 IFY$=LEFT$(AU$(I),LEN(Y$))THEN420
390 GOTO460
400 IFP%(I)=YTHEN420
410 GOTO460
420 PRINT"-----------------------------------"
430 PRINT"[198]ROM [204]OADSTAR #"LS%(I):IFTY=0THENPRINT"[159]";
440 PRINTCHR$(34)PR$(I)CHR$(34)"
445 [153]" BY "AU$(I)
450 [153][163]5)CA$(P%(I))
460 [130]:[139]TY[167][152]4,[199](13):[160]4
470 [153]"(null)RESS ANY KEY TO RETURN TO (null)AIN (null)ENU":[151]198,0
480 [161]A$:[139]A$[178]""[167]480
490 [142]
500 [143] ------CATEGORY LIST-------
510 [153]""
520 [129]I[178]0[164]5
530 [153][163]8)"SYS"I[170]1"PRINT - "CA$(I)
540 [130]:[139]EX[167] [153][163]8)"SYS"0"PRINT - VAL(null)RIGHT$(null)(null)"
550 [161]A$:[139]A$[178]"0" [175] EX [167] [142]
551 [139]A$[179]"1"[176]A$[177]"6"[167]550
560 [142]
570 [143] ------ERROR MESSAGE-------
580 [139]ST[178]0[167]640
590 [132]15,A$,B$
600 [153][163]15)"(null)RESS A KEYONONON"
610 TA[178]20[171][181]([195](B$)[173]2)
620 [153][163]TA)"SYS"B$:[129]T[178]1[164]15:[130]:[153][163]TA)"ONCLR"B$"ON":[129]T[178]1[164]15:[130]
630 [161]A$:[139]A$[178]""[167]620
640 [160]15:[142]
650 [143] -------INITIALIZATION-------
660 [151]53281,0:[151]53280,0:[153]"LOAD"[199](14)[199](8)
670 [134]PR$(250),P%(250),AU$(250),LS%(250),CA$(6)
680 [129]I[178]0[164]5:[135]CA$(I):[130]
690 X[178]1:LS%(0)[178]30:QQ[178]0:[141]170
700 [153]"LOAD"
710 [143] -------MAIN MENU-------
720 [153][163]7)"DEF(null) (null) ATN STR$ (null) (null) ATN (null)    (null) RIGHT$ (null) (null)":QQ[178]0
730 [153][163]8)"OPEN(C) 1987 BY ASCENDER (null)UCKER"
740 [153][163]10)"SYS1LIST  -  VALNTER (null)ROGRAMS"
750 [153][163]10)"SYS2LIST  -  (null)IST (null)ROGRAMS"
760 [153][163]10)"SYS3LIST  -  (null)OAD A (null)IST
770 PRINTTAB(10)"[158]4[155]  -  [211]AVE A [204]IST
780 [153][163]10)"SYS5LIST  -  (null)UIT
790 GETA$:IFA$<"1"ORA$>"5"THEN790
795 QQ=0:EX=0
800 ONVAL(A$)GOTO880,1070,1410,1570,810
810 PRINT"[153] [193]RE YOU SURE YOU WANT TO QUIT? ([158][217][153][146]/[158][206][153][146])"
820 AA=PEEK(203):IFAA<>25ANDAA<>39THEN820
830 IFAA=39THEN700
835 POKE1,119
840 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
850 IFER<>63THENSYS64738
860 PRINT"[147]":POKE53272,21:POKE8*256,0:POKE44,8:POKE43,1
865 LOAD"HELLO CONNECT",8
870 REM -------ENTER ROUTINE-------
880 PRINT"[147]"TAB(8)"[158][208]ROGRAM [206]UMBER[153]"X
890 PRINTTAB(8)"[158][204]OADSTAR # [155]";:NU=2:LN=2:GOSUB30
900 LS%(X)=VAL(LEFT$(A$,2))
910 IFLS%(X)=0THEN700
920 PRINTSPC(9)"------------------------------[145][145][145]"
930 PRINT"[158][212]ITLE -  [155]";:NU=0:LN=30:QQ=1:GOSUB30
940 PR$(X)=A$
950 PRINTSPC(9)"------------------------[145][145][145]"
960 PRINT"[158][193]UTHOR - [155]";:NU=0:LN=24:QQ=1:GOSUB30
970 AU$(X)=A$
980 GOSUB510:P%(X)=VAL(A$)-1
990 PRINT"[159]":PRINTCHR$(34)PR$(X)CHR$(34)
995 PRINT"    BY "AU$(X)
1000 PRINT:PRINTCA$(P%(X))" - [204]OADSTAR #"LS%(X)
1010 PRINTTAB(8)"[153][201]S THIS CORRECT? ([158][217][153][146]/[158][206][153][146])"
1020 GETA$:IFA$<>"Y"ANDA$<>"N"THEN1020
1030 IFA$="N"THEN880
1040 X=X+1
1050 GOTO880
1060 REM -------LIST MENU-------
1070 PRINT"[147][150]":QQ=0
1080 PRINTTAB(7)"[212][200][197] [204][207][193][196][211][212][193][210] [204][201][211][212] [205][197][206][213]"
1090 PRINTTAB(10)"[158][193][155] - [194]Y [204]OADSTAR [201]SSUE #"
1100 PRINT"  [204]"
1110 PRINTTAB(10)"[158][194][155] - [194]Y [208]ROGRAM [212]ITLE"
1120 PRINT"   [201]"
1130 PRINTTAB(10)"[158][195][155] - [194]Y [193]UTHOR"
1140 PRINT"    [211]"
1150 PRINTTAB(10)"[158][196][155] - [194]Y [195]ATEGORY"
1160 PRINT"     [212]"
1170 PRINTTAB(10)"[158][197][155] - [193]LL"
1180 PRINTTAB(10)"[158][198][155] - [194]ACK TO [205]AIN [205]ENU"
1190 GETA$:IFA$<"A"ORA$>"F"THEN1190
1200 TL=ASC(A$)-64:Y=-1:Y$=""
1210 PRINT"[153]":ONTLGOSUB1230,1260,1290,1320,1340,700
1220 GOTO1340
1230 PRINTTAB(7)"[204]OADSTAR [201]SSUE # [155]";
1240 NU=2:LN=2:GOSUB30:Y=VAL(A$)
1250 RETURN
1260 PRINTTAB(7)"[208]ROGRAM [212]ITLE - [155]";
1270 NU=0:LN=20:QQ=1:GOSUB30:Y$=A$
1280 RETURN
1290 PRINTTAB(7)"[193]UTHOR'S [206]AME - [155]";
1300 NU=0:LN=20:QQ=1:GOSUB30:Y$=A$
1310 RETURN
1320 EX=1:GOSUB520:Y=VAL(A$)-1:IFA$="0"THEN1070
1330 RETURN
1340 PRINT"[153]    [204]IST TO ([158][211][146][153])CREEN OR ([158][208][146][153])RINTER"
1350 GETA$:IFA$<>"S"ANDA$<>"P"THEN1350
1360 TY=0:IFA$="P"THENTY=1
1370 IFTY=0THENPRINT"[147]"
1380 GOSUB280
1390 GOTO700
1400 REM -------LOAD ROUTINE-------
1410 F$="":PRINT"[158]"TAB(5)"[198]ILENAME TO [204][207][193][196] - [155]LIST";:K$="LIST":L=4
1420 NU=0:LN=16:GOSUB40:F$=A$
1430 IFF$=""THEN700
1440 OPEN15,8,15,"I0"
1450 OPEN2,8,2,"0:"+F$+",P,R"
1460 SYS828,2,255:X=VAL(A$)
1470 FORI=1TOX
1480 SYS828,2,255:PR$(I)=A$
1490 SYS828,2,255:AU$(I)=A$
1510 SYS828,2,255:P%(I)=VAL(A$)
1520 SYS828,2,255:LS%(I)=VAL(A$)
1530 NEXT:CLOSE2
1540 GOSUB580
1550 GOTO700
1560 REM -------SAVE ROUTINE-------
1570 F$="":PRINT"[158]"TAB(5)"[198]ILENAME TO [211][193][214][197] - [155]";
1580 NU=0:LN=16:GOSUB30:F$=A$
1590 IFF$=""THEN700
1600 OPEN15,8,15,"I0"
1610 OPEN2,8,2,"0:"+F$+",P,W"
1620 PRINT#2,X
1630 FORI=1TOX
1640 PRINT#2,PR$(I)
1650 PRINT#2,AU$(I)
1660 PRINT#2,P%(I)
1670 PRINT#2,LS%(I)
1680 NEXT:CLOSE2
1690 GOSUB580
1700 GOTO700
1710 DATA"[198]UN 'N [199]AMES","[212]HE [200]APPY [200]ACKER","[208]ICTURE [212]HIS"
1720 DATA"[200]ELPWARE","[194]RAINWARE","[205]USICAL [205]ADNESS"
20000 POKE53280, 6:POKE53281, 1:POKE53265,PEEK(53265)AND239:PRINTCHR$(142)"[147][142]";
20001 PRINT"[152]                                                   LOADSTAR PRESENTS  ";
20002 PRINT"                                                      [146]o[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]";
20003 PRINT"[183][183][183][183][183][183][183][183][183][183][183][183][183][183]p[152][160]       [146]oo[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]pp[152]       [146][180]";
20004 PRINT"[165][170][170][151] [152]      [146][180][165]                       ";
20005 PRINT"    [146][170][170][151][160][152]      [146][180][165][155][160]                           [155] [146][170][170][151][160][152]      [146]";
20006 PRINT"[180][165][155][160]       LOADSTAR LIST       [155] [146][170][170][151][160][152]      [146][180][165]       [163][163][163][163][163][163][163][163][163]";
20007 PRINT"[163][163][163][163]       [155] [146][170][170][151][160][152]      [146][180][165]                           [155] [146][170][170][151][160][152] ";
20008 PRINT"     [146][180][165]     WRITTEN BY  [160]         [155] [146][170][170][151][160][152]      [146][180][180][155][160]         ";
20009 PRINT" FENDER TUCKER    [155] [146][170][170][151][160][152]      [146][180][165]                           [155] [146]";
20010 PRINT"[170][170][151][160][152]      [146][180][165]      COPYRIGHT  1988      [155] [146][170][170][151][160][152]      [146][180][165]   ";
20011 PRINT"                        [155] [146][170][170][151][160][152]      [146][180][165]                         ";
20012 PRINT"  [155] [146][170][170][151][160][152]      [146][180][165]  PRESS SPACE TO CONTINUE  [155] [146][170][170][151] [152]      [146][180][165]";
20013 PRINT"                           [155] [146][170][170][151] [152]      [146][180][165][155]                  ";
20014 PRINT"         [146][170][170][151] [152]      [146][180][165][170][170][151] [152]      [146]ll";
20015 PRINT"[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186][186][151] [152]       [146]l[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]";
20016 PRINT"[175][175][186][151]  [152]        [151]                               [152]                       ";
20017 PRINT"                    "
20020 POKE2023,96+128:POKE56295,12:POKE53265,PEEK(53265)OR16
20030 GETA$:IFA$<>" "THEN 20030
20040 RETURN